Macworld Expo - Develope…Central & Net Innovations/Developer Central and Net Innovators (MacWorld Expo) (January 1999).iso/Developer Central/Bowers Development/Demo AppMaker/Examples/Pascal OS8/Everything/EverythingApp.p

Text File | 1998-10-30 | 2.8 KB | 190 lines | [TEXT/CWIE]

{ EverythingApp.p -- application-level functions }
{ Created 10/30/98 1:06 PM by AppMaker }

Unit EverythingApp;
Interface

Uses
    Types,
    Quickdraw,
    Controls,
    Events,
    Files,
    Lists,
    Menus,
    TextEdit,
    AMDoc,
    AMApp;

type
    EverythingApp        = object (AMApp)

    {data members}

    {methods - public}
        Procedure Initialize; Override;
        Procedure OpenApp; Override;

        Function  DoCommand        (inCommand:    longint): Boolean; Override;

    {methods - internal}
        Function  MakeDoc: AMDoc; Override;

        Procedure DoModelessButtons;
        Procedure DoModelessCheckboxes;
        Procedure DoModelessRadios;
        Procedure DoModelessText;
        Procedure DoModelessStuff;
        Procedure DoModelessMoreStuff;
        Procedure DoInvokeAbout;
    end;

{----------}
Function NewEverythingApp: EverythingApp;

{----------}
Implementation

Uses
    ResourceDefs,

    ModelessButtons,
    ModelessCheckboxes,
    ModelessRadios,
    ModelessText,
    ModelessStuff,
    ModelessBars,
    AboutDialog,
    EverythingEngine,
    EverythingDoc,
    AMWindow;

{----------}
Function NewEverythingApp: EverythingApp;
var
    app:        EverythingApp;
begin
    New (app);
    if app <> nil then begin
        app.Initialize;
    end;
    NewEverythingApp := app;
end;

{----------}
Procedure EverythingApp.Initialize;
Begin
    inherited Initialize;

    mNumOpenTypes := 1;
    mOpenTypeList [0] := kFileType;
End;

{----------}
Function EverythingApp.MakeDoc: AMDoc;
var
    aDoc:        EverythingDoc;
Begin
    aDoc := NewEverythingDoc;

    if aDoc <> nil then begin
        {? add to list of docs}
    end;

    MakeDoc := aDoc;
End;

{----------}
Procedure EverythingApp.OpenApp;
Begin
    DoNew;
End;

{----------}
Procedure EverythingApp.DoModelessButtons;
var
begin
    ShowModelessButtons;
end;

{----------}
Procedure EverythingApp.DoModelessCheckboxes;
var
begin
    ShowModelessCheckboxes;
end;

{----------}
Procedure EverythingApp.DoModelessRadios;
var
begin
    ShowModelessRadios;
end;

{----------}
Procedure EverythingApp.DoModelessText;
var
begin
    ShowModelessText;
end;

{----------}
Procedure EverythingApp.DoModelessStuff;
var
begin
    ShowModelessStuff;
end;

{----------}
Procedure EverythingApp.DoModelessMoreStuff;
var
begin
    ShowModelessBars;
end;

{----------}
Procedure EverythingApp.DoInvokeAbout;
var
    dummy:        integer;
begin
    if GetAboutDialog then begin
        { do something }
    end;
end;

{----------}
Function EverythingApp.DoCommand (
    inCommand:        longint): Boolean;
begin
    DoCommand := true;
    case inCommand of
        cmdNew:
                DoNew;
        cmdOpen:
                DoOpen;
        cmdClose:
                DoClose;
        cmdQuit:
                DoQuit;
        cmdModelessButtons:
                DoModelessButtons;
        cmdModelessCheckboxes:
                DoModelessCheckboxes;
        cmdModelessRadios:
                DoModelessRadios;
        cmdModelessText:
                DoModelessText;
        cmdModelessStuff:
                DoModelessStuff;
        cmdModelessMoreStuff:
                DoModelessMoreStuff;
        cmdInvokeAbout:
                DoInvokeAbout;

        otherwise
                DoCommand := false;
    end; {case}
end;

end.